home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE18 / SURVIVE / FMLOGIN.PAS < prev    next >
Pascal/Delphi Source File  |  1996-12-06  |  1KB  |  72 lines
  1. unit fmLogin;
  2.  
  3. interface
  4.  
  5. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  6.   Buttons, ExtCtrls;
  7.  
  8. type
  9.   TdlgLogin = class(TForm)
  10.     btnOK: TButton;
  11.     btnCancel: TButton;
  12.     Label1: TLabel;
  13.     Label2: TLabel;
  14.     edtUsername: TEdit;
  15.     edtPassword: TEdit;
  16.     Image1: TImage;
  17.     cboServerDatabase: TComboBox;
  18.     Label3: TLabel;
  19.   private
  20.   public
  21.   end;
  22.  
  23. function LaunchLoginDialog(
  24.            var Username,
  25.            Password,
  26.            Server,
  27.            Database: string): TModalResult;
  28.  
  29. var
  30.   dlgLogin: TdlgLogin;
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35.  
  36. function LaunchLoginDialog(
  37.            var Username,
  38.            Password,
  39.            Server,
  40.            Database: string): TModalResult;
  41. var
  42.   SDText: string;
  43.   I: Integer;
  44. begin
  45.   Application.CreateForm(TdlgLogin, dlgLogin);
  46.   try
  47.     with dlgLogin do
  48.     begin
  49.       cboServerDatabase.ItemIndex := 0;
  50.       Result := ShowModal;
  51.       if Result = mrOK then
  52.       begin
  53.         Username := edtUsername.Text;
  54.         Password := edtPassword.Text;
  55.         Server := '';
  56.         Database := '';
  57.         if cboServerDatabase.ItemIndex > 0 then
  58.         begin
  59.           SDText := cboServerDatabase.Text;
  60.           I := Pos('\', SDText);
  61.           Server := Copy(SDText, 1, I - 1);
  62.           Database := Copy(SDText, I + 1, Length(SDText));
  63.         end;
  64.       end;
  65.     end;
  66.   finally
  67.     dlgLogin.Release;
  68.   end;
  69. end;
  70.  
  71. end.
  72.